home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / c64-games.disk / boogaboo.d64 / boot pulga (.txt) next >
Encoding:
Commodore BASIC  |  1995-01-01  |  8.0 KB  |  128 lines
  1. 1 PRINTCHR$(8):GOTO7000
  2. 2 Q=408+40*11
  3. 3 CO=1
  4. 99 POKE53272,25
  5. 100 READA,B,C
  6. 101 IFA=0THEN200
  7. 110 POKE1024+Q,A:POKE55296+Q,CO
  8. 120 POKE1064+Q,B:POKE55336+Q,CO
  9. 130 POKE1104+Q,C:POKE55376+Q,CO
  10. 140 Q=Q+1:GOTO100
  11. 200 POKE1144+Q-3,110:POKE55416+Q-3,CO
  12. 210 POKE1145+Q-3,111:POKE55417+Q-3,CO
  13. 220 RETURN
  14. 1000 PRINT"[147]":POKE53280,0:POKE53281,0
  15. 1001 PRINT"[159]"
  16. 1010 PRINT" [169] [223]               [169] [223]"
  17. 1020 PRINT"        [146][169]       "
  18. 1030 PRINT"                   "
  19. 1040 PRINT"        [223]       "
  20. 1045 PRINT" [223]                  [146][223] [146][169]  "
  21. 1050 PRINT"    [191]"
  22. 1060 PRINT"PRESENTS..."
  23. 1065 FORI=1TO2000:NEXTI
  24. 1066 PRINT""
  25. 1070 PRINT" [176][192][201] [213][192][201] [213][192][201] [213][192][201] [213][192][201]      [176][192][201] [213][192][201] [213][192][201]"
  26. 1080 PRINT" [194][160][194][160][194][160][194][160][194][160][194][160][194][160][160][160][194][160][194][160][160][160][160][160][160][194][160][194][160][194][160][194][160][194][160][194]"
  27. 1090 PRINT" [171][192][203][160][194][160][194][160][194][160][194][160][194][160][201][160][171][192][179][160][192][192][192][160][160][171][192][203] [194][160][194][160][194][160][194]"
  28. 1100 PRINT" [194][160][194][160][194][160][194][160][194][160][194][160][194][160][194][160][194][160][194][160][160][160][160][160][160][194][160][194][160][194][160][194][160][194][160][194]"
  29. 1110 PRINT" [173][192][203][160][202][192][203][160][202][192][203][160][202][192][203][160][203][160][202][160][160][160][160][160][160][173][192][203][160][202][192][203][160][202][192][203]"
  30. 1111 FORI=1TO5000:NEXTI
  31. 1112 PRINT"[147]"
  32. 1130 PRINT"[147]";:POKE53272,21
  33. 1140 FORI=1TO24:READA$:IFA$="FIN"THEN1142
  34. 1141 PRINT"";:GOSUB5000:NEXTI
  35. 1142 GOSUB6000
  36. 1150 FORI=1TO2000:NEXTI
  37. 1160 GOSUB2
  38. 1170 FORI=1TO3000:NEXTI
  39. 1172 GOTO7000
  40. 1200 POKE53272,21
  41. 1210 SYS 52480
  42. 2000 DATA "ORIGINAL IDEA ....... PACO & PACO"
  43. 2010 DATA "REALIZED BY ......... PEDRO RUIZ"
  44. 2020 DATA "PRODUCED BY ......... J.L.DOMINGUEZ"
  45. 2030 DATA "MUSIC  BY ........... FELIX ARRIBAS"
  46. 2040 DATA "DESIGN BY ........... ANGEL DOMINGUEZ"
  47. 2050 DATA "ATREZZO ............. JUAN MANUEL"
  48. 2060 DATA "HAIRDRESSER ......... JOSE MARIA     "
  49. 2070 DATA " "
  50. 2080 DATA "DISTRIBUTION ........ "
  51. 3000 DATA "FIN"
  52. 3001 DATA 32,168,169,170,171,32
  53. 3002 DATA 172,173,32,32,174,175
  54. 3003 DATA 176,177,178,179,180,181
  55. 3004 DATA 182,183,184,185,186,187
  56. 3005 DATA 188,189,190,191,192,193
  57. 3006 DATA 32,194,195,196,197,32
  58. 3010 DATA 112,115,117,113,3,118,114,116,119,32,32,32,32,32,32
  59. 3020 DATA 96,97,98,32,99,100,32,101,98,32,99,98,102,101,98
  60. 3030 DATA 32,103,98,32,104,105,32,103,105,32,106,98,32,99,98,32,107,105
  61. 3040 DATA 32,99,98,32,101,98,32,99,100,32,108,109,32,101,98,32,99,98,32,101,100
  62. 3050 DATA 0,0,0
  63. 4000 PRINT"[147]":POKE53280,0:POKE53281,0:POKE53272,24
  64. 4001 POKE52,32:POKE54,32:POKE56,32:POKE46,22:POKE48,22:POKE50,22
  65. 4002 FORI=0TO50
  66. 4003 X=INT(RND(TI)*1000)
  67. 4010 A=INT(RND(TI)*9+120)
  68. 4020 POKE1024+X,A
  69. 4030 POKE55296+X,RND(TI)*16
  70. 4040 NEXTI
  71. 4060 POKE1024+500,129
  72. 4070 POKE55296+500,6
  73. 4080 PRINT"UNKNOWN PLANET DETECTED IN SECTOR ALFA - 4"
  74. 4081 POKE54272,0:POKE54273,30
  75. 4082 POKE54277,9:POKE54278,240
  76. 4083 POKE54296,15
  77. 4084 POKE54276,129
  78. 4090 FORI=1TO4000:NEXTI
  79. 4100 PRINT"BCD[157][157][157]EFG[157][157][157]HIJ"
  80. 4101 POKE54273,50:POKE54274,129
  81. 4102 POKE54296,15
  82. 4110 FORI=1TO3000:NEXTI
  83. 4120 PRINT"FORMS OF LIFE ARE DETECTED IN THE PLANETCEBOLLA - 7"
  84. 4130 FORI=1TO4000:NEXTI
  85. 4140 PRINT"KLMN[157][157][157][157]OFFP[157][157][157][157]QFFR[157][157][157][157]STUV"
  86. 4141 POKE54273,70:POKE54274,129
  87. 4142 POKE54296,15
  88. 4150 FORI=1TO3000:NEXTI
  89. 4151 POKE54273,80:POKE54274,129
  90. 4160 PRINT"KLFMN[157][157][157][157][157]OFFFP[157][157][157][157][157]FFFFF";
  91. 4170 PRINT"[157][157][157][157][157]QFFFR[157][157][157][157][157]STFUV"
  92. 4180 FORI=1TO3000:NEXTI
  93. 4185 PRINT"WE GO TO EXPLORE THE PLANET WITH THE    SOND PULGA-64"
  94. 4190 PRINT"";
  95. 4191 PRINT"WZ[157][157][157][157]";
  96. 4200 PRINT"KLFFMN[157][157][157][157][157][157]OFFFFP[157][157][157][157][157][157][157]_FFFFFF#[157][157][157][157][157][157][157][157]!FFFFFF%[157][157][157][157][157][157][157]QFFFFR";
  97. 4210 PRINT"[157][157][157][157][157][157]STFFUV[157][157][157][157][^"
  98. 4220 FORI=1TO3000:NEXTI
  99. 4230 PRINT"";
  100. 4231 PRINT"WXYZ[157][157][157][157][157][157][157][157]";
  101. 4240 PRINT"KLFFFFMN[157][157][157][157][157][157][157][157]OFFFFFFP[157][157][157][157][157][157][157][157][157]_FFFFFFFF#[157][157][157][157][157][157][157][157][157][157] FFFFFFFF$";
  102. 4250 PRINT"[157][157][157][157][157][157][157][157][157][157]!FFFFFFFF%[157][157][157][157][157][157][157][157][157]QFFFFFFR";
  103. 4251 PRINT"[157][157][157][157][157][157][157][157]STFFFFUV[157][157][157][157][157][157][\]^"
  104. 4260 FORI=1TO4000:NEXTI
  105. 4270 POKE54276,128
  106. 4999 POKE53272,21:GOTO1000
  107. 5000 FORT=1TOLEN(A$)
  108. 5010 PRINTMID$(A$,T,1);
  109. 5020 FORR=1TO40:NEXTR
  110. 5030 NEXTT
  111. 5040 PRINT""
  112. 5060 RETURN
  113. 6000 Q=1024+40*15+24:C=55296+40*15+24
  114. 6001 POKE53272,25
  115. 6010 FORI=0TO5
  116. 6020 FORX=0TO5
  117. 6030 READA
  118. 6040 POKEQ+I*40+X,A:POKEC+I*40+X,5
  119. 6050 NEXTX,I
  120. 6060 RETURN
  121. 7000 IFI=0THEN7030
  122. 7005 PRINT"[147]":POKE53272,21:PRINT"BOOGA-BOO IS LOADING..."
  123. 7006 SYS6432
  124. 7010 IFI=3001 THENI=I+1:LOAD"PULGA1",8,1
  125. 7020 LOAD"PULGA2",8,1
  126. 7030 FORI=0TO40:POKE828+I,PEEK(6400+I):NEXTI
  127. 7040 GOTO4000
  128.